Вывести на печать номер строки и сумму ее элементов. Предполагается, что такая строка единственная.
Program dmas_19;
uses crt;
const
m = 4;
var
a: array [1 .. m, 1 .. m] of integer;
Min, Sum, iMin, i, k: integer;
begin
randomize;
For i := 1 to n do
begin
For k := 1 to n do
begin
a[i, k] := random(50);
write(a[i, k]:4);
end;
writeln;
end;
Sum := 0;
for k := 1 to m do
Sum := Sum + a[1, k];
Min := Sum;
iMin := 1;
for i := 2 to n do
begin
Sum := 0;
for k := 1 to m do
Sum := Sum + a[i, k];
if Sum < Min then
begin
Min := Sum;
iMin := i;
end;
end;
writeln('Номер строки ', iMin, ' Сумма элементов ', Min);
Readln;
End.